home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1998 February / Amiga-CD 1998 #2.iso / c / samplespielen < prev    next >
AmigaDOS Script File  |  1996-05-21  |  522b  |  24 lines

  1. .KEY Dateiname
  2. .BRA [
  3. .KET ]
  4. ;
  5. ; Spielt ein Sound-Sample ab und verwendet dazu evtl. den Spieler aus der
  6. ;      ENV:-Variable »AmigaCD/Sample_Spieler«
  7. ;
  8. Set defaultanzeiger ":c/playsound"
  9.  
  10. if exists ENV:AmigaCD/Sample_Spieler
  11.    set Zeigher "`getenv AmigaCD/Sample_Spieler`"
  12. else
  13.    set Zeigher "`get defaultanzeiger`"
  14. endif
  15.  
  16. if "[Dateiname]" EQ ""
  17.    :c/requestfile20 sys: TITLE "Welche Soundsample-Datei spielen?" >ENV:auswahl[$$]
  18.    if not warn
  19.       $Zeigher $auswahl[$$]
  20.    endif
  21. else
  22.    $Zeigher "[Dateiname]"
  23. endif
  24.